setwd("D:/作业/R语言/附件/实践3")
a1=read.csv("x.csv")
x=a1[1:100,3:66]
x=unlist(x)
hist(x)
setwd("D:/作业/R语言/附件")
a2=read.table("实践4第一题附件")
y=a2[1:22088,3:139]
class(y)
y1=as.matrix(y)
y1=as.numeric(y1)
class(y1)
y1=unlist(y1)
class(y1)
hist(y1)
